unit Saving;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TFormSaving = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    ImageDisk: TImage;
    ImageDiskBase: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSaving: TFormSaving;

implementation

{$R *.DFM}

procedure TFormSaving.FormCreate(Sender: TObject);
begin
  with ImageDisk.canvas do begin
    brush.color:=clbtnface;
    BrushCopy(Bounds(0,0,55,35),ImageDiskBase.picture.bitmap,
      Bounds(0,0,55,35),clpurple);
  end;
end;

end.
